10 REM MIDDLE EARTH QUIZ BY HENRY NEWCOMB
20 REM TRANSLATED FOR THE COMMODORE 64 BY DONNA K. WOODY
30 :
40 POKE53272,23: REM SELECTS UPPER/LOWER CASE
50 PRINTCHR$(8): REM DISABLES C/SHIFT KEYS
60 POKE53280,14 :REM SET BORDER COLOR TO LIGHT BLUE
70 POKE53281,5 :REM SET BACKGROUND COLOR TO GREEN
80 PRINTCHR$(5):REM SET CHARACTER COLOR TO WHITE
97 :
98 REM INITIALIZE VARIABLES
99 :
100 FLAG=0:Q=32:X=Q
110 DIM Q$(Q),A$(X),B$(X),C$(X),D$(X),RA$(X)
127 :
128 REM READ DATA STATEMENTS
129 :
130 FORCNT=1TOQ:READQ$(CNT):READA$(CNT):READB$(CNT):READC$(CNT):READD$(CNT)
140 READRA$(CNT):NEXTCNT
150 FORX=1TO6:READQUIZ$(X):NEXT
167 :
168 REM TITLE PAGE
169 :
170 GOSUB5000
197 :
198 REM PRINT QUESTIONS
199 :
200 RT=0:WR=0:FORCNT=1TOQ
205 PRINTCHR$(147)
210 PRINTTAB(13)"[205][201][196][196][204][197] [197][193][210][212][200] [209][213][201][218]"
220 PRINT"[209][213][197][211][212][201][207][206][160]# ";CNT
230 PRINT"";Q$(CNT);" ?"
240 PRINT"[193]. ";A$(CNT)
245 PRINT
250 PRINT"[194]. ";B$(CNT)
255 PRINT
260 PRINT"[195]. ";C$(CNT)
265 PRINT
270 PRINT"[196]. ";D$(CNT)
272 PRINT
275 PRINT"[216]. [197]XITS [208]ROGRAM"
280 PRINT"[197]NTER [[193]] [[194]] [[195]] [[196]] [[216]]  ";
290 POKE204,0:POKE207,0:GETM$:IFM$=""THEN290
291 POKE 204,1 :PRINT
300 IFM$="A"ORM$="B"ORM$="C"ORM$="D"THEN400
335 IFM$="X"THEN 700
340 PRINT"[211]ORRY. [217]OU MUST ENTER [193], [194], [195], ,[196] OR [216].[145][145][145][145][145]":GOTO280
397 :
398 REM KEEP SCORE
399 :
400 IFM$=RA$(CNT)THENRT=RT+1:GOTO 450
410 WR=WR+1:PRINTTAB(26)"[145][215]RONG!!"
415 PRINTRA$(CNT)" IS THE CORRECT ANSWER."
420 PRINT"[208]RESS SPACE BAR TO CONTINUE.";
430 POKE204,0:POKE207,0:GETZ$:IFZ$=""THEN430
440 POKE204,1
450 NEXTCNT
497 :
498 REM FINAL REPORT
499 :
500 PRINTCHR$(147)
510 PRINTTAB(13)"[205][201][196][196][204][197] [197][193][210][212][200] [209][213][201][218]"
520 PRINT"[217]OU GOT ";RT;" QUESTIONS RIGHT."
530 PRINT"[217]OU GOT ";WR;" QUESTIONS WRONG."
540 IFWR=0THENFLAG=1:GOTO 600
550 IFWR>0ANDWR<4THENFLAG=2:GOTO 600
560 IFWR>3ANDWR<13THENFLAG=3:GOTO 600
570 IFWR>12ANDWR<21THENFLAG=4:GOTO 600
580 IFWR>20ANDWR<26THENFLAG=5:GOTO 600
590 IFWR>25THENFLAG=6
600 PRINT"";QUIZ$(FLAG)
610 PRINT"[215]OULD YOU LIKE TO TRY AGAIN (Y/N)?";
620 POKE204,0:POKE207,0:GETZ$:IFZ$=""THEN620
630 POKE204,1
640 IFZ$="Y"THEN 200
650 IFZ$="N"THEN 700
697 :
698 REM END ROUTINE
699 :
700 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
705 POKE631,13:POKE632,13:POKE198,2:END
997 :
998 REM DATA STATEMENTS
999 :
1000 DATA"[201]N WHAT LAND IS [205]T. [196]OOM LOCATED","[199]ONDOR","[205]ORDOR","[210]OHAN","[197]RIADOR"
1010 DATA"B"
1020 DATA"[215]HERE ARE THE MINES OF [205]ORIA LOCATED","[205]ORDOR","[205]ISTY [205]OUNTAINS"
1030 DATA"[205]TS. OF [211]HADOW","[201]RON [200]ILLS","B"
1040 DATA"[215]HERE IS [196]OL [193]MROTH LOCATED","[215]EST OF [199]ONDOR","[212]HE [205]ISTY [205]OUNTAINS"
1050 DATA"[212]HE [194]AY OF [194]ELFALAS","[206]ORTHERN [215]ASTE","C"
1060 DATA"[201]N WHAT LAND IS [200]ELMS [196]EEP LOCATED","[199]ONDOR","[212]HE [211]HIRE","[205]ORDOR"
1070 DATA"[210]OHAN","D"
1080 DATA"[193]LONG WHAT ROAD DOES [201]SENGARD LIE","[207]LD [211]OUTH [210]OAD","[212]HE [199]REENWAY"
1090 DATA"[207]LD [198]OREST [210]OAD","[199]REAT [197]AST [210]OAD",A
1100 DATA"[201]N WHAT LAND IS THE [211]HIRE LOCATED","[210]HOVANION","[197]RIADOR","[199]ONDOR"
1110 DATA"[210]HUN",B
1120 DATA"[215]HAT ARE THE SEEING STONES OF [206]UMENOR","[197]YE GLASSES","[208]ALANTIRS"
1130 DATA"[205]IRRORS","[215]INDOWS",B
1140 DATA"[215]HO IS THE [199]REY [208]ILGRIM","[194]ILBO","[193]RAGORN","[199]ANDALF","[194]OROMIR",C
1150 DATA"[215]HO WAS [198]ARAMIR","[194]OROMIR'S BROTHER","[207]NE OF THE [200]OBBITS"
1160 DATA"[212]HE ELF KING","[212]HE NAME OF THE [194]LACK [195]APTAIN",A
1170 DATA"[215]HAT ARE OLIPHAUNTS","[207]RC FOR [200]OBBIT","[197]LEPHANTS","[193]N [207]RC CLAN"
1180 DATA"[199]OBLINS",B
1190 DATA"[215]HAT WAS THE SPECIAL MARK THAT [194]OROMIR  CARRIED WITH HIM","[193] RING"
1200 DATA"[193] SWORD","[193] HORN","[193]N AMULET",C
1210 DATA"[215]HO STOOD GUARD OVER [211]ARUMAN AT         [207]RTHANC","[212]HE [197]NTS","[207]RCS"
1220 DATA"[199]ANDALF","[197]LVES",A
1230 DATA"[215]HO RODE WITH [199]ANDALF ON [211]HADOWFAX TO   [205]INAS [212]IRITH","[205]ERRY"
1240 DATA"[198]RODO","[208]IPPIN","[211]AM",C
1250 DATA"[215]HICH THREE OF THE [199]REY [195]OMPANY TRACKED [211]ARUMAN'S ORCS INTO [210]OHAN"
1260 DATA"[193]RAGORN - [194]OROMIR - [198]RODO","[205]ERRY - [208]IPPIN - [199]ANDALF"
1270 DATA"[193]RAGORN - [204]EGOLAS - [199]IMLI","[199]IMLI - [198]RODO - [211]AM",C
1280 DATA"[215]HO DID [193]RAGORN, [204]EGOLAS, AND [199]IMLI     MEET IN [210]OHAN","[198]RODO"
1290 DATA"[212]REEBEARD","[205]ITHRANDIR","[198]ATTY [204]UMPKIN",C
1300 DATA"[215]HAT FAMOUS OBJECT WAS BROKEN AT THE    BATTLE OF [193]RGONATH"
1310 DATA"[193]RAGORN'S SWORD","[194]OROMIR'S HORN","[199]ANDALF'S STAFF","[198]RODO'S RING",B
1320 DATA"[215]HAT WAS [199]ANDALF'S REAL NAME","[193]MBROSIUS","[194]EN","[201]NGLORIAN","[207]LORIN",D
1330 DATA"[200]OW MANY [206]AZGUL BROKE INTO [195]RICKHOLLOW","[212]WO","[212]HREE","[198]OUR","[198]IVE",B
1340 DATA"[215]HO OR WHAT ACCORDING TO LEGEND WAS THE FIRST LIVING THING ON '[197]ARTH'"
1350 DATA"[212]OM [194]OMBADIL","[212]HE [197]NTS","[212]HE ELVES","[211]MAUG",A
1360 DATA"[215]HO BECAME A BEAR AT THE BATTLE OF THE  FIVE ARMIES","[193]RAGORN"
1370 DATA"[199]IMLI","[194]EORN","[199]ANDALF",C
1380 DATA"[215]HO WAS [209]UICKBEAM","[193]N [197]NT","[193]N ELF","[193] [200]OBBIT","[199]ANDALF",A
1390 DATA"[215]HAT WAS THE ONLY HARM [211]MAUG INFLICTED  ON [194]ILBO"
1400 DATA"[193] SMALL CUT ON THE FOREHEAD","[193] TWISTED ANKLE"
1410 DATA"[194]URNING THE HAIR OFF HIS ANKLE","[206]ONE",C
1420 DATA"[215]HO WAS THE LAST STEWARD OF [199]ONDOR","[194]OROMIR","[193]RAGORN","[198]ARAMIR"
1430 DATA"[196]ENETHOR",D
1440 DATA"[215]HO WAS THE LAST PERSON TO HAVE THE RINGIN HIS POSSESSION","[211]AM"
1450 DATA"[198]RODO","[199]OLLUM","[206]ONE OF THE ABOVE",C
1460 DATA"[206]AME THE LAST THREE RING BEARERS IN     ORDER","[211]AM - [198]RODO - [199]OLLUM"
1470 DATA"[198]RODO - [211]AM - [199]OLLUM","[198]RODO - [199]OLLUM - [198]RODO","[211]AM - [199]OLLUM - [198]RODO"
1480 DATAA
1490 DATA"[215]HICH TWO FAMOUS PEOPLE HAVE NINE       FINGERS","[211]AM - [198]RODO"
1500 DATA"[198]RODO - [211]AURON","[199]ANDALF - [198]RODO","[194]ILBO - [211]AM",B
1510 DATA"[215]HAT WAS THE NAME OF THE HORSE THAT [212]OM [194]OMBADIL RODE","[211]HADOWFAX"
1520 DATA"[211]TRONG-BEARER","[198]ATTY [204]UMPKIN","[212]RAIL [198]OLLOWER",C
1530 DATA"[215]HO WAS [211]HARKY","[198]RODO","[199]ANDALF","[211]AURON","[211]ARUMAN",D
1540 DATA"[215]HAT DID [199]ANDALF THREATEN TO DO TO      [194]ARLIMAN [194]UTTERBUR"
1550 DATA"[212]URN HIM INTO A FROG","[211]POIL HIS FOOD","[212]URN HIS BEER SOUR"
1560 DATA"[194]URN HIS INN DOWN",C
1570 DATA"[215]HAT WAS [198]RODO'S MISTAKE ON [215]EATHERTOP","[200]E PUT THE RING ON"
1580 DATA"[200]E GOT LOST","[200]E INSULTED [193]RAGORN","[200]E PUT THE FIRE OUT",A
1590 DATA"[215]HO HELPED [198]RODO REACH [210]IVENDELL (AT THEVERY END)","[199]ANDALF","[211]AM"
1600 DATA"[193]RAGORN","[199]LORFINDEL",D
1610 DATA"[215]HAT OR WHO SAVED [198]RODO'S LIFE IN THE   MINES OF [205]ORIA","[193]RAGORN"
1620 DATA"[212]HE RING","[212]HE MITHRIL COAT","[199]ANDALF'S SPELL",C
1630 :
1631 REM QUIZ$ REPORT DATA
1632 :
1640 DATA"[215]ITH A RECORD LIKE THAT YOU COULD GUIDE [198]RODOWITH YOUR EYES CLOSED."
1650 DATA"[217]OU COULD PROBABLY GUIDE [198]RODO AND      [195]OMPANY THROUGH THE LANDS."
1660 DATA"[217]OU COULD PROBABLY GUIDE [198]RODO WITH THE HELP OF A MAP."
1670 DATA"[217]OU WOULD BE WISE TO HAVE SOMEONE GUIDE YOU THROUGH THE LANDS."
1680 DATA"[215]ITH A LOT OF LUCK AND A MAP YOU MIGHT  MAKE IT THROUGH THE LANDS."
1690 DATA"DO NOT LEAVE THE IMMEDIATE AREA AS YOU  ARE LIKELY TO GET LOST."
4997 :
4998 REM TITLE PAGE
4999 :
5000 PRINTCHR$(147)
5005 PRINT""
5010 PRINTTAB(11)"[205]IDDLE [197]ARTH [209]UIZ"
5012 PRINTTAB(18)"BY"
5014 PRINTTAB(13)"[149][200]ENRY [206]EWCOMB"
5016 PRINTTAB(6)"[159][212]RANSLATED BY [196]ONNA [203]. [215]OODY"
5020 PRINT"[201]NSTRUCTIONS (Y/N)?";
5030 POKE204,0:POKE207,0:GETZ$:IFZ$=""THEN5030
5040 POKE204,1
5050 IFZ$="Y"THEN6000
5060 IFZ$="N"THEN200
5070 GOTO5030
5080 RETURN
5997 :
5998 REM INSTRUCTIONS
5999 :
6000 PRINTCHR$(147)
6005 PRINT"    [215]ELCOME TO THE [205]IDDLE [197]ARTH [209]UIZ."
6010 PRINT:PRINT"[201]N THIS QUIZ YOU WILL BE ASKED":PRINT
6020 PRINT"QUESTIONS CONCERNING THE CHARACTERS":PRINT
6030 PRINT"AND GEOGRAPHY OF [205]IDDLE [197]ARTH.  [212]HE":PRINT
6040 PRINT"QUESTIONS ARE ALL MULTIPLE CHOICE.":PRINT
6050 PRINT"[215]HEN YOU ARE FINISHED, YOU WILL BE":PRINT
6060 PRINT"TOLD HOW MANY QUESTIONS YOU GOT RIGHT":PRINT
6070 PRINT"AND HOW MANY YOU MISSED.  [212]HERE WILL":PRINT
6080 PRINT"ALSO BE SOME ADVICE.":PRINT
6090 PRINTTAB(13)"[199]OOD [204]UCK!"
6100 PRINT"[208]RESS SPACE BAR TO CONTINUE.";
6110 POKE204,0:POKE207,0:GETZ$:IFZ$=""THEN6110
6120 POKE204,1:RETURN
7000 PRINT